# (decoded with TMPL 11972)
{ %filename% }
{ Created %date% %time% by AppMaker }

Unit %UnitName%;
Interface

Uses
%If MPW%
	{$Load ToolBox.dump}
		MemTypes,
		QuickDraw,
		OSIntf,
		ToolIntf,
		PackIntf,
	{$Load}

%end if%
%If Think%
{$ifc undefined Think_Pascal}
	ListManager,
{$endc}
%end if%
	%UsesDialogs%
	Globals,
	Miscellany,
	ResourceDefs;

{----------}
Procedure Init%MenuName%;
Procedure Choose%MenuName% (itemNr:	integer);

{----------}
Implementation

%If MPW%
{$D+}
{$R+}
{$OV+}

%end if%
var
	nrFonts:		integer;

%If MPW%
{$S %unitname%}

%end if%
{----------}
Procedure Init%MenuName%;
Begin
	nrFonts := countMItems (FontMenu);
End; {Init%MenuName%}

%DoMenuItems%
{----------}
Procedure Choose%MenuName% {(itemNr:	integer)};
var
	fontName:		Str255;
	fontNum:		integer;
Begin
	DoRadioMenu (%menuName%Menu, 1, nrFonts, itemNr);
	GetItem (%menuName%Menu, itemNr, fontName);
	GetFNum (%menuName%Name, fontNum);
End; {Choose%MenuName%}

End. {%UnitName%}